home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 003.dms / 003.adf / EXAMPLE_PROGRAMS / example19.AMOS / example19.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  938 b   |  50 lines
  1. Rem EXAMPLE20.AMos 
  2. '
  3. '
  4. Rem examples of box,draw,plot,circle xgr,ygr 
  5. '
  6. '
  7. Screen Open 0,320,250,16,Lowres
  8. Flash Off : Curs Off : Paper 0 : Hide : Cls 0
  9. '
  10. '
  11. Centre "NOW PLOTTING 10000 RANDOM PIXELS"
  12. For A=1 To 10000
  13. Plot Rnd(319),Rnd(199),Rnd(15)
  14. Next A
  15. Cls 0
  16. Centre "Now a simple effect using DRAW"
  17. Wait 100
  18. For X=0 To 319 : Ink Rnd(4)+1 : Draw 0,199 To X,0 : Next X
  19. For Y=1 To 199 : Ink Rnd(14)+1 : Draw 0,199 To 319,Y : Next Y
  20. Wait 100
  21. Cls 0
  22. Centre "NOW 1000 BOXES"
  23. For A=1 To 1000
  24. Ink Rnd(15) : X1=Rnd(320) : Y1=Rnd(200) : Box X1,Y1 To X1+Rnd(50),Y1+Rnd(50)
  25. Wait Vbl 
  26. Next A
  27. Wait 100
  28. Cls 0
  29. Ink 5
  30. Bar 80,100 To 220,200
  31. Paper 5
  32. Locate 12,18 : Print "THIS IS A BAR"
  33. Wait 100
  34. Cls 0
  35. Paper 0 : Locate 0,0 : Print "THE TIME TUNNEL USING CIRCLES"
  36. Ink Rnd(15)
  37. For A=1 To 255
  38. Ink Rnd(14)+1
  39. Circle 100,100,A
  40. Next A
  41. Wait 100
  42. Cls 0
  43. Ink 4 : B=1 : For A=0 To 250
  44. Plot A,B
  45. Inc B
  46. Locate 0,24 : Print "XGR=";Xgr;"   YGR=";Ygr
  47. Wait 2
  48. Next A
  49. Wait 100
  50. Edit